use Test::More tests => 5;
use lib '../lib';
use Send2ME::Magic::Magic;

my @v = variables('($header{\'X-Redmine-Issue-Author\'}, $header{\'X-Redmine-Issue-Assignee\'}, split(\';\', $header{\'X-Redmine-Watchers\'}))');

is(@v, 4);
is($v[0], '$header{\'X-Redmine-Issue-Author\'}');
is($v[1], '$header{\'X-Redmine-Issue-Assignee\'}');
is($v[2], '\';\'');
is($v[3], '$header{\'X-Redmine-Watchers\'}');


